object ETypeForm: TETypeForm
  Left = 0
  Top = 0
  ActiveControl = Grid1
  Caption = #1057#1087#1088#1072#1074#1086#1095#1085#1080#1082' '#1084#1077#1088#1086#1087#1088#1080#1103#1090#1080#1081
  ClientHeight = 448
  ClientWidth = 762
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Visible = True
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 762
    Height = 448
    Align = alClient
    Caption = 'Panel2'
    TabOrder = 0
    object Splitter1: TSplitter
      Left = 1
      Top = 256
      Width = 760
      Height = 8
      Cursor = crVSplit
      Align = alBottom
      ExplicitTop = 309
    end
    object Panel1: TPanel
      Left = 1
      Top = 1
      Width = 760
      Height = 255
      Align = alClient
      BevelOuter = bvLowered
      Caption = 'Panel1'
      TabOrder = 0
      object Panel5: TPanel
        Left = 1
        Top = 1
        Width = 543
        Height = 253
        Align = alClient
        Caption = 'Panel5'
        TabOrder = 0
        object Splitter2: TSplitter
          Left = 1
          Top = 247
          Width = 541
          Height = 5
          Cursor = crVSplit
          Align = alBottom
          ExplicitTop = 149
        end
        object Grid1: TDBGridEh
          Left = 1
          Top = 1
          Width = 541
          Height = 222
          Align = alClient
          AutoFitColWidths = True
          DataSource = Source1
          Flat = True
          FooterColor = clWindow
          FooterFont.Charset = DEFAULT_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -11
          FooterFont.Name = 'Tahoma'
          FooterFont.Style = []
          RowDetailPanel.Color = clBtnFace
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'Tahoma'
          TitleFont.Style = []
          OnKeyDown = Grid1KeyDown
          Columns = <
            item
              AutoFitColWidth = False
              DropDownRows = 4
              EditButtons = <>
              FieldName = 'STATE'
              Footers = <>
              Title.Caption = ' '
              Width = 23
            end
            item
              AutoFitColWidth = False
              EditButtons = <>
              FieldName = 'ISCONTROL'
              Footers = <>
              Title.Caption = 'T'
              Width = 24
            end
            item
              AutoFitColWidth = False
              Color = clInfoBk
              EditButtons = <>
              FieldName = 'CODE'
              Footers = <>
              ReadOnly = True
              Title.Caption = #1050#1086#1076
              Width = 54
            end
            item
              EditButtons = <>
              FieldName = 'NAME'
              Footers = <>
              Title.Caption = #1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
              Width = 356
            end
            item
              EditButtons = <>
              FieldName = 'SHORTNAME'
              Footers = <>
              Title.Caption = #1050#1088'.'#1085#1072#1080#1084'.'
            end>
          object RowDetailData: TRowDetailPanelControlEh
          end
        end
        object DBNavigator1: TDBNavigator
          Left = 1
          Top = 223
          Width = 541
          Height = 24
          DataSource = Source1
          Align = alBottom
          Flat = True
          TabOrder = 1
        end
      end
      object Panel6: TPanel
        Left = 544
        Top = 1
        Width = 215
        Height = 253
        Align = alRight
        BevelOuter = bvLowered
        TabOrder = 1
        object Grants: TCheckListBox
          Left = 1
          Top = 1
          Width = 213
          Height = 88
          OnClickCheck = GrantsClickCheck
          Align = alTop
          ItemHeight = 13
          Items.Strings = (
            #1040#1076#1084#1080#1085#1080#1089#1090#1088#1090#1086#1088
            #1056#1091#1082#1086#1074#1086#1076#1080#1090#1077#1083#1100
            #1057#1090#1072#1088#1096#1080#1081' '#1082#1086#1083#1083#1077#1082#1090#1086#1088
            #1050#1086#1083#1083#1077#1082#1090#1086#1088
            #1070#1088#1080#1089#1090
            #1043#1088#1091#1087#1087#1072' '#1074#1099#1077#1079#1076#1072)
          TabOrder = 0
        end
        object GroupBox2: TGroupBox
          Left = 1
          Top = 136
          Width = 213
          Height = 47
          Align = alTop
          Caption = #1060#1080#1083#1100#1090#1088
          TabOrder = 1
          object Shb: TComboBox
            Left = 4
            Top = 16
            Width = 200
            Height = 21
            Style = csDropDownList
            ItemIndex = 0
            TabOrder = 0
            Text = '...'
            OnChange = ShbChange
            Items.Strings = (
              '...'
              #1040#1076#1084#1080#1085#1080#1089#1090#1088#1072#1090#1086#1088
              #1056#1091#1082#1086#1074#1086#1076#1080#1090#1077#1083#1100
              #1057#1090#1072#1088#1096#1080#1081' '#1082#1086#1083#1083#1077#1082#1090#1086#1088
              #1050#1086#1083#1083#1077#1082#1090#1086#1088
              #1070#1088#1080#1089#1090
              #1043#1088#1091#1087#1087#1072' '#1074#1099#1077#1079#1076#1072)
          end
        end
        object GroupBox1: TGroupBox
          Left = 1
          Top = 89
          Width = 213
          Height = 47
          Align = alTop
          Caption = #1043#1083#1072#1074#1085#1099#1081' '#1087#1088#1086#1092#1080#1083#1100
          TabOrder = 2
          object Derect: TComboBox
            Left = 4
            Top = 20
            Width = 200
            Height = 21
            Style = csDropDownList
            ItemIndex = 0
            TabOrder = 0
            Text = '...'
            OnChange = DerectChange
            Items.Strings = (
              '...'
              #1040#1076#1084#1080#1085#1080#1089#1090#1088#1072#1090#1086#1088
              #1056#1091#1082#1086#1074#1086#1076#1080#1090#1077#1083#1100
              #1057#1090#1072#1088#1096#1080#1081' '#1082#1086#1083#1083#1077#1082#1090#1086#1088
              #1050#1086#1083#1083#1077#1082#1090#1086#1088
              #1070#1088#1080#1089#1090
              #1043#1088#1091#1087#1087#1072' '#1074#1099#1077#1079#1076#1072)
          end
        end
      end
    end
    object Panel4: TPanel
      Left = 1
      Top = 264
      Width = 760
      Height = 183
      Align = alBottom
      BevelOuter = bvLowered
      Caption = 'Panel4'
      TabOrder = 1
      object Panel7: TPanel
        Left = 394
        Top = 1
        Width = 365
        Height = 181
        Align = alRight
        BevelOuter = bvLowered
        Caption = 'Panel7'
        TabOrder = 0
        object ENext: TCheckListBox
          Left = 1
          Top = 1
          Width = 363
          Height = 179
          OnClickCheck = ENextClickCheck
          Align = alClient
          ItemHeight = 13
          TabOrder = 0
        end
      end
      object Panel8: TPanel
        Left = 1
        Top = 1
        Width = 393
        Height = 181
        Align = alClient
        BevelOuter = bvLowered
        Caption = 'Panel8'
        TabOrder = 1
        object Grid: TDBGridEh
          Left = 1
          Top = 1
          Width = 391
          Height = 155
          Align = alClient
          AutoFitColWidths = True
          DataSource = Source2
          Flat = True
          FooterColor = clWindow
          FooterFont.Charset = DEFAULT_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -11
          FooterFont.Name = 'Tahoma'
          FooterFont.Style = []
          RowDetailPanel.Color = clBtnFace
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'Tahoma'
          TitleFont.Style = []
          Columns = <
            item
              AutoFitColWidth = False
              EditButtons = <>
              FieldName = 'STATE'
              Footers = <>
              Title.Caption = ' '
              Width = 25
            end
            item
              AutoFitColWidth = False
              Color = clInfoBk
              EditButtons = <>
              FieldName = 'CODE'
              Footers = <>
              ReadOnly = True
              Title.Caption = #1050#1086#1076
            end
            item
              EditButtons = <>
              FieldName = 'NAME'
              Footers = <>
              Title.Caption = #1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
              Width = 269
            end>
          object RowDetailData: TRowDetailPanelControlEh
          end
        end
        object DBNavigator2: TDBNavigator
          Left = 1
          Top = 156
          Width = 391
          Height = 24
          DataSource = Source2
          Align = alBottom
          Flat = True
          TabOrder = 1
        end
      end
    end
  end
  object JvAppIniFileStorage1: TJvAppIniFileStorage
    StorageOptions.BooleanStringTrueValues = 'TRUE, YES, Y'
    StorageOptions.BooleanStringFalseValues = 'FALSE, NO, N'
    FileName = 'Forms.ini'
    SubStorages = <>
    Left = 92
    Top = 144
  end
  object JvFormStorage1: TJvFormStorage
    AppStorage = JvAppIniFileStorage1
    AppStoragePath = 'ETypeForm\'
    StoredProps.Strings = (
      'Panel4.Height')
    StoredValues = <>
    Left = 64
    Top = 144
  end
  object DS1: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    CODE,'
      '    NAME,'
      '    SHORTNAME,'
      '    LASTTIME,'
      '    BASECODE,'
      '    STATE,'
      '    OWNER,'
      '    FLT,'
      '    ISCONTROL,'
      '    DERECT'
      'FROM'
      '    SPR$ETYPE '
      'ORDER BY Name')
    AutoUpdateOptions.UpdateTableName = 'SPR$ETYPE'
    AutoUpdateOptions.KeyFields = 'code'
    AutoUpdateOptions.AutoReWriteSqls = True
    AutoUpdateOptions.CanChangeSQLs = True
    AutoUpdateOptions.UpdateOnlyModifiedFields = True
    AutoUpdateOptions.AutoParamsToFields = True
    AfterPost = DS1AfterPost
    Transaction = dm1.trnRD
    Database = dm1.db1
    UpdateTransaction = dm1.trnWr
    AutoCommit = True
    Left = 128
    Top = 92
  end
  object Source1: TDataSource
    DataSet = DS1
    OnDataChange = Source1DataChange
    Left = 156
    Top = 92
  end
  object DS2: TpFIBDataSet
    UpdateSQL.Strings = (
      'UPDATE SPR$RTYPE'
      'SET '
      '    NAME = :NAME,'
      '    LASTTIME = :LASTTIME,'
      '    BASECODE = :BASECODE,'
      '    STATE = :STATE,'
      '    ETYPE = :MAS_CODE,'
      '    ENEXT = :ENEXT'
      'WHERE'
      '    CODE = :OLD_CODE'
      '    ')
    InsertSQL.Strings = (
      'INSERT INTO SPR$RTYPE('
      '    CODE,'
      '    NAME,'
      '    LASTTIME,'
      '    BASECODE,'
      '    STATE,'
      '    ETYPE,'
      '    ENEXT'
      ')'
      'VALUES('
      '    :CODE,'
      '    :NAME,'
      '    :LASTTIME,'
      '    :BASECODE,'
      '    :STATE,'
      '    :MAS_CODE,'
      '    :ENEXT'
      ')')
    SelectSQL.Strings = (
      'SELECT'
      '    CODE,'
      '    NAME,'
      '    LASTTIME,'
      '    BASECODE,'
      '    STATE,'
      '    ETYPE,'
      '    ENEXT'
      'FROM'
      '    SPR$RTYPE'
      'WHERE'
      '   ETYPE = :MAS_CODE '
      'ORDER BY Name')
    AutoUpdateOptions.UpdateTableName = 'SPR$RTYPE'
    AutoUpdateOptions.KeyFields = 'code'
    AutoUpdateOptions.AutoReWriteSqls = True
    AutoUpdateOptions.AutoParamsToFields = True
    Transaction = dm1.trnRD
    Database = dm1.db1
    UpdateTransaction = dm1.trnWr
    AutoCommit = True
    DataSource = Source1
    Left = 24
    Top = 356
    WaitEndMasterScroll = True
    dcForceOpen = True
  end
  object Source2: TDataSource
    DataSet = DS2
    OnDataChange = Source2DataChange
    Left = 52
    Top = 356
  end
end
